Application.ModelessCmd("g5")
Application.ModelessCmd("gd5")
Application.StatusBarText = "Set Grids = 5"